Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/x/volume10/contool/part06

Internet Message Format | 1990-10-29 | 43.6 KB

Path: uunet!jarthur!usc!cs.utexas.edu!sun-barr!newstop!sun!melmac.harris-atd.com
From: [e-mail] (Chuck Musciano)
Newsgroups: comp.sources.x
Subject: v10i039: contool -- replacement for 'cmdtool -C', Part06/06
Message-ID: <[e-mail]>
Date: 30 Oct 90 06:27:11 GMT
References: <csx-10i034:[e-mail]>
Sender: [e-mail]
Lines: 1945
Approved: [e-mail]

Submitted-by: [e-mail] (Chuck Musciano)
Posting-number: Volume 10, Issue 39
Archive-name: contool/part06

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 6 (of 6)."
# Contents:  contool_ui.c
# Wrapped by chuck@melmac on Fri Aug 17 10:00:54 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'contool_ui.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'contool_ui.c'\"
else
echo shar: Extracting \"'contool_ui.c'\" \(40450 characters\)
sed "s/^X//" >'contool_ui.c' <<'END_OF_FILE'
X/*
X * contool_ui.c - User interface object initialization functions.
X * This file was generated by `gxv' from `contool.G'.
X * DO NOT EDIT BY HAND.
X */
X
X#include <stdio.h>
X#include <sys/param.h>
X#include <sys/types.h>
X#include <xview/xview.h>
X#include <xview/canvas.h>
X#include <xview/icon_load.h>
X#include <xview/panel.h>
X#include <xview/scrollbar.h>
X#include <xview/svrimage.h>
X#include <xview/termsw.h>
X#include <xview/text.h>
X#include <xview/tty.h>
X#include <xview/xv_xrect.h>
X#include "contool_ui.h"
X
X/*
X * Create object `file_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_file_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu_item    popup_load_config();
X    extern Menu_item    popup_save_config();
X    extern Menu_item    start_logging();
X    extern Menu_item    stop_logging();
X    extern Menu_item    print_messages();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Load Configuration...",
X            MENU_GEN_PROC, popup_load_config,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Save Configuration...",
X            MENU_GEN_PROC, popup_save_config,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Start Logging",
X            MENU_GEN_PROC, start_logging,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Stop Logging",
X            MENU_GEN_PROC, stop_logging,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Print",
X            MENU_GEN_PROC, print_messages,
X            NULL,
X        MENU_DEFAULT, 2,
X        MENU_GEN_PIN_WINDOW, (Xv_opaque) ip[0], "File",
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `view_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_view_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu_item    become_console();
X    extern Menu_item    clear_messages();
X    extern Menu_item    reset_filter();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Become Console",
X            MENU_GEN_PROC, become_console,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Clear Messages",
X            MENU_GEN_PROC, clear_messages,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Reset Filter",
X            MENU_GEN_PROC, reset_filter,
X            NULL,
X        MENU_DEFAULT, 2,
X        MENU_GEN_PIN_WINDOW, (Xv_opaque) ip[0], "View",
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `edit_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_edit_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu_item    edit_filters();
X    extern Menu_item    edit_properties();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Filters...",
X            MENU_GEN_PROC, edit_filters,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Properties...",
X            MENU_GEN_PROC, edit_properties,
X            NULL,
X        MENU_DEFAULT, 2,
X        MENU_GEN_PIN_WINDOW, (Xv_opaque) ip[0], "Edit",
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_insert_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_filter_insert_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu        filter_insert_handler();
X    extern Menu_item    insert_at_top();
X    extern Menu_item    insert_above();
X    extern Menu_item    insert_below();
X    extern Menu_item    insert_at_bottom();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_GEN_PROC, filter_insert_handler,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "At top",
X            MENU_GEN_PROC, insert_at_top,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Above selection",
X            MENU_GEN_PROC, insert_above,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Below selection",
X            MENU_GEN_PROC, insert_below,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "At bottom",
X            MENU_GEN_PROC, insert_at_bottom,
X            NULL,
X        MENU_DEFAULT, 4,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_edit_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_filter_edit_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu        filter_edit_handler();
X    extern Menu_item    filter_cut();
X    extern Menu_item    filter_copy();
X    extern Menu_item    filter_paste();
X    extern Menu_item    filter_delete();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_GEN_PROC, filter_edit_handler,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Cut",
X            MENU_GEN_PROC, filter_cut,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Copy",
X            MENU_GEN_PROC, filter_copy,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Paste",
X            MENU_GEN_PROC, filter_paste,
X            MENU_PULLRIGHT, contool_filter_paste_menu_create(ip, NULL),
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Delete",
X            MENU_GEN_PROC, filter_delete,
X            NULL,
X        MENU_DEFAULT, 1,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_paste_menu' in the specified instance.
X
X */
XXv_opaque
Xcontool_filter_paste_menu_create(ip, owner)
X    caddr_t        *ip;
X    Xv_opaque    owner;
X{
X    extern Menu_item    paste_at_top();
X    extern Menu_item    paste_above();
X    extern Menu_item    paste_below();
X    extern Menu_item    paste_at_bottom();
X    Xv_opaque    obj;
X
X    obj = xv_create(XV_NULL, MENU_COMMAND_MENU,
X        XV_KEY_DATA, INSTANCE, ip,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "At top",
X            MENU_GEN_PROC, paste_at_top,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Above selection",
X            MENU_GEN_PROC, paste_above,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "Below selection",
X            MENU_GEN_PROC, paste_below,
X            NULL,
X        MENU_ITEM,
X            XV_KEY_DATA, INSTANCE, ip,
X            MENU_STRING, "At bottom",
X            MENU_GEN_PROC, paste_at_bottom,
X            NULL,
X        MENU_DEFAULT, 4,
X        NULL);
X    return obj;
X}
X
X/*
X * Initialize an instance of object `base'.
X */
Xcontool_base_objects *
Xcontool_base_objects_initialize(ip, owner)
X    contool_base_objects    *ip;
X    Xv_opaque    owner;
X{
X    if (!ip && !(ip = (contool_base_objects *) calloc(1, sizeof (contool_base_objects))))
X        return (contool_base_objects *) NULL;
X    if (!ip->base)
X        ip->base = contool_base_base_create(ip, owner);
X    if (!ip->contool_controls)
X        ip->contool_controls = contool_base_contool_controls_create(ip, ip->base);
X    if (!ip->file)
X        ip->file = contool_base_file_create(ip, ip->contool_controls);
X    if (!ip->view)
X        ip->view = contool_base_view_create(ip, ip->contool_controls);
X    if (!ip->edit)
X        ip->edit = contool_base_edit_create(ip, ip->contool_controls);
X    if (!ip->display)
X        ip->display = contool_base_display_create(ip, ip->base);
X    return ip;
X}
X
X/*
X * Create object `base' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_base_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, FRAME,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_WIDTH, 575,
X        XV_HEIGHT, 246,
X        XV_LABEL, "Contool 3.0",
X        FRAME_CLOSED, FALSE,
X        FRAME_SHOW_FOOTER, TRUE,
X        FRAME_SHOW_RESIZE_CORNER, TRUE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `contool_controls' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_contool_controls_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:contool_controls",
X        XV_X, 0,
X        XV_Y, 0,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, 32,
X        WIN_BORDER, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `file' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_file_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:file",
X        XV_X, 4,
X        XV_Y, 4,
X        XV_WIDTH, 54,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "File",
X        PANEL_ITEM_MENU, contool_file_menu_create((caddr_t *) ip, NULL),
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `view' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_view_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:view",
X        XV_X, 67,
X        XV_Y, 4,
X        XV_WIDTH, 62,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "View",
X        PANEL_ITEM_MENU, contool_view_menu_create((caddr_t *) ip, NULL),
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `edit' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_edit_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:edit",
X        XV_X, 138,
X        XV_Y, 4,
X        XV_WIDTH, 56,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Edit",
X        PANEL_ITEM_MENU, contool_edit_menu_create((caddr_t *) ip, NULL),
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `display' in the specified instance.
X
X */
XXv_opaque
Xcontool_base_display_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, TEXTSW,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:display",
X        XV_X, 0,
X        XV_Y, 27,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, WIN_EXTEND_TO_EDGE,
X        OPENWIN_SHOW_BORDERS, TRUE,
X        NULL);
X    return obj;
X}
X
X/*
X * Initialize an instance of object `props'.
X */
Xcontool_props_objects *
Xcontool_props_objects_initialize(ip, owner)
X    contool_props_objects    *ip;
X    Xv_opaque    owner;
X{
X    if (!ip && !(ip = (contool_props_objects *) calloc(1, sizeof (contool_props_objects))))
X        return (contool_props_objects *) NULL;
X    if (!ip->props)
X        ip->props = contool_props_props_create(ip, owner);
X    if (!ip->prop_controls)
X        ip->prop_controls = contool_props_prop_controls_create(ip, ip->props);
X    if (!ip->default_action)
X        ip->default_action = contool_props_default_action_create(ip, ip->prop_controls);
X    if (!ip->default_beep_count)
X        ip->default_beep_count = contool_props_default_beep_count_create(ip, ip->prop_controls);
X    if (!ip->default_beep_times)
X        ip->default_beep_times = contool_props_default_beep_times_create(ip, ip->prop_controls);
X    if (!ip->default_command)
X        ip->default_command = contool_props_default_command_create(ip, ip->prop_controls);
X    if (!ip->log_file)
X        ip->log_file = contool_props_log_file_create(ip, ip->prop_controls);
X    if (!ip->log_style)
X        ip->log_style = contool_props_log_style_create(ip, ip->prop_controls);
X    if (!ip->print_filter)
X        ip->print_filter = contool_props_print_filter_create(ip, ip->prop_controls);
X    if (!ip->good_icon)
X        ip->good_icon = contool_props_good_icon_create(ip, ip->prop_controls);
X    if (!ip->bad_icon)
X        ip->bad_icon = contool_props_bad_icon_create(ip, ip->prop_controls);
X    if (!ip->flash_icon)
X        ip->flash_icon = contool_props_flash_icon_create(ip, ip->prop_controls);
X    if (!ip->stamp_resolution)
X        ip->stamp_resolution = contool_props_stamp_resolution_create(ip, ip->prop_controls);
X    if (!ip->message2)
X        ip->message2 = contool_props_message2_create(ip, ip->prop_controls);
X    if (!ip->max_message)
X        ip->max_message = contool_props_max_message_create(ip, ip->prop_controls);
X    if (!ip->message3)
X        ip->message3 = contool_props_message3_create(ip, ip->prop_controls);
X    if (!ip->delete_amount)
X        ip->delete_amount = contool_props_delete_amount_create(ip, ip->prop_controls);
X    if (!ip->message4)
X        ip->message4 = contool_props_message4_create(ip, ip->prop_controls);
X    if (!ip->props_apply)
X        ip->props_apply = contool_props_props_apply_create(ip, ip->prop_controls);
X    if (!ip->props_reset)
X        ip->props_reset = contool_props_props_reset_create(ip, ip->prop_controls);
X    return ip;
X}
X
X/*
X * Create object `props' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_props_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, FRAME_CMD,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_WIDTH, 500,
X        XV_HEIGHT, 479,
X        XV_LABEL, "Contool: Properties",
X        XV_SHOW, FALSE,
X        FRAME_SHOW_FOOTER, FALSE,
X        FRAME_SHOW_RESIZE_CORNER, FALSE,
X        FRAME_CMD_PUSHPIN_IN, FALSE,
X        NULL);
X    xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
X    return obj;
X}
X
X/*
X * Create object `prop_controls' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_prop_controls_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:prop_controls",
X        XV_X, 0,
X        XV_Y, 0,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, WIN_EXTEND_TO_EDGE,
X        WIN_BORDER, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `default_action' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_default_action_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern int        default_action();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TOGGLE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:default_action",
X        XV_X, 96,
X        XV_Y, 14,
X        XV_WIDTH, 211,
X        XV_HEIGHT, 139,
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 14,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NCOLS, 1,
X        PANEL_LABEL_STRING, "Default action:",
X        PANEL_NOTIFY_PROC, default_action,
X        PANEL_CHOICE_STRINGS,
X            "Beep",
X            "Command",
X            "Flash icon",
X            "Open window",
X            "Timestamp",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `default_beep_count' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_default_beep_count_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_NUMERIC_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:default_beep_count",
X        XV_X, 306,
X        XV_Y, 19,
X        XV_WIDTH, 80,
X        XV_HEIGHT, 15,
X        PANEL_VALUE_X, 315,
X        PANEL_VALUE_Y, 19,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 2,
X        PANEL_VALUE_STORED_LENGTH, 2,
X        PANEL_MAX_VALUE, 99,
X        PANEL_MIN_VALUE, 0,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `default_beep_times' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_default_beep_times_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_MESSAGE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:default_beep_times",
X        XV_X, 394,
X        XV_Y, 19,
X        XV_WIDTH, 34,
X        XV_HEIGHT, 13,
X        PANEL_LABEL_STRING, "times",
X        PANEL_LABEL_BOLD, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `default_command' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_default_command_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:default_command",
X        XV_X, 306,
X        XV_Y, 48,
X        XV_WIDTH, 177,
X        XV_HEIGHT, 15,
X        PANEL_VALUE_X, 315,
X        PANEL_VALUE_Y, 48,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 21,
X        PANEL_VALUE_STORED_LENGTH, 1024,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `log_file' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_log_file_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:log_file",
X        XV_X, 141,
X        XV_Y, 174,
X        XV_WIDTH, 344,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Log file:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 174,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `log_style' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_log_style_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_CHOICE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:log_style",
X        XV_X, 96,
X        XV_Y, 194,
X        XV_WIDTH, 314,
X        XV_HEIGHT, 23,
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 194,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NROWS, 1,
X        PANEL_LABEL_STRING, "Log messages:",
X        PANEL_CHOICE_STRINGS,
X            "Before filtering",
X            "After filtering",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `print_filter' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_print_filter_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:print_filter",
X        XV_X, 119,
X        XV_Y, 237,
X        XV_WIDTH, 364,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Print filter:",
X        PANEL_VALUE_X, 203,
X        PANEL_VALUE_Y, 237,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `good_icon' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_good_icon_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:good_icon",
X        XV_X, 79,
X        XV_Y, 274,
X        XV_WIDTH, 406,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "\"All is well\" icon:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 274,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `bad_icon' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_bad_icon_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:bad_icon",
X        XV_X, 50,
X        XV_Y, 294,
X        XV_WIDTH, 435,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "\"Check console\" icon:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 294,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `flash_icon' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_flash_icon_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:flash_icon",
X        XV_X, 111,
X        XV_Y, 314,
X        XV_WIDTH, 374,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "\"Flash\" icon:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 314,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `stamp_resolution' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_stamp_resolution_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_NUMERIC_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:stamp_resolution",
X        XV_X, 40,
X        XV_Y, 350,
X        XV_WIDTH, 246,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Timestamp resolution:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 350,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 6,
X        PANEL_VALUE_STORED_LENGTH, 6,
X        PANEL_MAX_VALUE, 999,
X        PANEL_MIN_VALUE, 0,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `message2' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_message2_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_MESSAGE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:message2",
X        XV_X, 296,
X        XV_Y, 350,
X        XV_WIDTH, 48,
X        XV_HEIGHT, 13,
X        PANEL_LABEL_STRING, "seconds",
X        PANEL_LABEL_BOLD, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `max_message' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_max_message_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_NUMERIC_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:max_message",
X        XV_X, 32,
X        XV_Y, 386,
X        XV_WIDTH, 254,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Maximum message text:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 386,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 6,
X        PANEL_VALUE_STORED_LENGTH, 6,
X        PANEL_MAX_VALUE, 999999,
X        PANEL_MIN_VALUE, 0,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `message3' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_message3_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_MESSAGE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:message3",
X        XV_X, 295,
X        XV_Y, 386,
X        XV_WIDTH, 33,
X        XV_HEIGHT, 13,
X        PANEL_LABEL_STRING, "bytes",
X        PANEL_LABEL_BOLD, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `delete_amount' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_delete_amount_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_NUMERIC_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:delete_amount",
X        XV_X, 14,
X        XV_Y, 406,
X        XV_WIDTH, 272,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Overflow deletion amount:",
X        PANEL_VALUE_X, 205,
X        PANEL_VALUE_Y, 406,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 6,
X        PANEL_VALUE_STORED_LENGTH, 6,
X        PANEL_MAX_VALUE, 999999,
X        PANEL_MIN_VALUE, 0,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `message4' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_message4_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_MESSAGE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:message4",
X        XV_X, 295,
X        XV_Y, 406,
X        XV_WIDTH, 33,
X        XV_HEIGHT, 13,
X        PANEL_LABEL_STRING, "bytes",
X        PANEL_LABEL_BOLD, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `props_apply' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_props_apply_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        accept_properties();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:props_apply",
X        XV_X, 191,
X        XV_Y, 442,
X        XV_WIDTH, 53,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Apply",
X        PANEL_NOTIFY_PROC, accept_properties,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `props_reset' in the specified instance.
X
X */
XXv_opaque
Xcontool_props_props_reset_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        reset_properties();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:props_reset",
X        XV_X, 256,
X        XV_Y, 442,
X        XV_WIDTH, 51,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Reset",
X        PANEL_NOTIFY_PROC, reset_properties,
X        NULL);
X    return obj;
X}
X
X/*
X * Initialize an instance of object `filters'.
X */
Xcontool_filters_objects *
Xcontool_filters_objects_initialize(ip, owner)
X    contool_filters_objects    *ip;
X    Xv_opaque    owner;
X{
X    if (!ip && !(ip = (contool_filters_objects *) calloc(1, sizeof (contool_filters_objects))))
X        return (contool_filters_objects *) NULL;
X    if (!ip->filters)
X        ip->filters = contool_filters_filters_create(ip, owner);
X    if (!ip->filter_controls)
X        ip->filter_controls = contool_filters_filter_controls_create(ip, ip->filters);
X    if (!ip->filter_list)
X        ip->filter_list = contool_filters_filter_list_create(ip, ip->filter_controls);
X    if (!ip->filter_insert)
X        ip->filter_insert = contool_filters_filter_insert_create(ip, ip->filter_controls);
X    if (!ip->filter_edit)
X        ip->filter_edit = contool_filters_filter_edit_create(ip, ip->filter_controls);
X    if (!ip->filter_update)
X        ip->filter_update = contool_filters_filter_update_create(ip, ip->filter_controls);
X    if (!ip->filter_type)
X        ip->filter_type = contool_filters_filter_type_create(ip, ip->filter_controls);
X    if (!ip->start)
X        ip->start = contool_filters_start_create(ip, ip->filter_controls);
X    if (!ip->stop)
X        ip->stop = contool_filters_stop_create(ip, ip->filter_controls);
X    if (!ip->comment)
X        ip->comment = contool_filters_comment_create(ip, ip->filter_controls);
X    if (!ip->ignore)
X        ip->ignore = contool_filters_ignore_create(ip, ip->filter_controls);
X    if (!ip->action)
X        ip->action = contool_filters_action_create(ip, ip->filter_controls);
X    if (!ip->filter_beep_count)
X        ip->filter_beep_count = contool_filters_filter_beep_count_create(ip, ip->filter_controls);
X    if (!ip->filter_beep_times)
X        ip->filter_beep_times = contool_filters_filter_beep_times_create(ip, ip->filter_controls);
X    if (!ip->filter_command)
X        ip->filter_command = contool_filters_filter_command_create(ip, ip->filter_controls);
X    if (!ip->filters_apply)
X        ip->filters_apply = contool_filters_filters_apply_create(ip, ip->filter_controls);
X    if (!ip->filters_reset)
X        ip->filters_reset = contool_filters_filters_reset_create(ip, ip->filter_controls);
X    return ip;
X}
X
X/*
X * Create object `filters' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filters_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void    filter_done();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, FRAME_CMD,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_WIDTH, 510,
X        XV_HEIGHT, 620,
X        XV_LABEL, "Contool: Filters",
X        XV_SHOW, FALSE,
X        FRAME_SHOW_FOOTER, FALSE,
X        FRAME_SHOW_RESIZE_CORNER, FALSE,
X        FRAME_CMD_PUSHPIN_IN, FALSE,
X        FRAME_DONE_PROC, filter_done,
X        NULL);
X    xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_controls' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_controls_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_controls",
X        XV_X, 0,
X        XV_Y, 0,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, WIN_EXTEND_TO_EDGE,
X        WIN_BORDER, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_list' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_list_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern int        filter_notify();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_LIST,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_list",
X        XV_X, 70,
X        XV_Y, 14,
X        PANEL_LIST_WIDTH, 350,
X        XV_HEIGHT, 200,
X        PANEL_LABEL_STRING, "Filters:",
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_LIST_DISPLAY_ROWS, 10,
X        PANEL_READ_ONLY, TRUE,
X        PANEL_CHOOSE_ONE, FALSE,
X        PANEL_CHOOSE_NONE, TRUE,
X        PANEL_NOTIFY_PROC, filter_notify,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_insert' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_insert_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_insert",
X        XV_X, 126,
X        XV_Y, 218,
X        XV_WIDTH, 67,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Insert",
X        PANEL_ITEM_MENU, contool_filter_insert_menu_create((caddr_t *) ip, NULL),
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_edit' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_edit_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_edit",
X        XV_X, 202,
X        XV_Y, 218,
X        XV_WIDTH, 56,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Edit",
X        PANEL_ITEM_MENU, contool_filter_edit_menu_create((caddr_t *) ip, NULL),
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_update' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_update_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        filter_update();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_update",
X        XV_X, 267,
X        XV_Y, 218,
X        XV_WIDTH, 62,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Update",
X        PANEL_NOTIFY_PROC, filter_update,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_type' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_type_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern int        set_filter_type();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_CHOICE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_type",
X        XV_X, 80,
X        XV_Y, 259,
X        XV_WIDTH, 272,
X        XV_HEIGHT, 23,
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 259,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NROWS, 1,
X        PANEL_LABEL_STRING, "Type:",
X        PANEL_NOTIFY_PROC, set_filter_type,
X        PANEL_CHOICE_STRINGS,
X            "Single line filter",
X            "Multi-line filter",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `start' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_start_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:start",
X        XV_X, 65,
X        XV_Y, 303,
X        XV_WIDTH, 429,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Pattern:",
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 303,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 46,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `stop' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_stop_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:stop",
X        XV_X, 35,
X        XV_Y, 323,
X        XV_WIDTH, 459,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "End pattern:",
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 323,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 46,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `comment' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_comment_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:comment",
X        XV_X, 49,
X        XV_Y, 359,
X        XV_WIDTH, 445,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Comment:",
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 359,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 46,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `ignore' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_ignore_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern int        set_filter_action();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_CHOICE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:ignore",
X        XV_X, 14,
X        XV_Y, 395,
X        XV_WIDTH, 321,
X        XV_HEIGHT, 23,
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 395,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NROWS, 1,
X        PANEL_LABEL_STRING, "When matched:",
X        PANEL_NOTIFY_PROC, set_filter_action,
X        PANEL_CHOICE_STRINGS,
X            "Save message",
X            "Ignore message",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `action' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_action_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern int        set_match_action();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TOGGLE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:action",
X        XV_X, 32,
X        XV_Y, 423,
X        XV_WIDTH, 196,
X        XV_HEIGHT, 139,
X        PANEL_VALUE_X, 126,
X        PANEL_VALUE_Y, 423,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NCOLS, 1,
X        PANEL_LABEL_STRING, "When saved:",
X        PANEL_NOTIFY_PROC, set_match_action,
X        PANEL_CHOICE_STRINGS,
X            "Beep",
X            "Command",
X            "Flash icon",
X            "Open window",
X            "Timestamp",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_beep_count' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_beep_count_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_NUMERIC_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_beep_count",
X        XV_X, 228,
X        XV_Y, 428,
X        XV_WIDTH, 80,
X        XV_HEIGHT, 15,
X        PANEL_VALUE_X, 237,
X        PANEL_VALUE_Y, 428,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 2,
X        PANEL_VALUE_STORED_LENGTH, 2,
X        PANEL_MAX_VALUE, 99,
X        PANEL_MIN_VALUE, 0,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_beep_times' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_beep_times_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_MESSAGE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_beep_times",
X        XV_X, 316,
X        XV_Y, 428,
X        XV_WIDTH, 34,
X        XV_HEIGHT, 13,
X        PANEL_LABEL_STRING, "times",
X        PANEL_LABEL_BOLD, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filter_command' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filter_command_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filter_command",
X        XV_X, 228,
X        XV_Y, 457,
X        XV_WIDTH, 265,
X        XV_HEIGHT, 15,
X        PANEL_VALUE_X, 237,
X        PANEL_VALUE_Y, 457,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 32,
X        PANEL_VALUE_STORED_LENGTH, 1024,
X        PANEL_READ_ONLY, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filters_apply' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filters_apply_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        accept_filters();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filters_apply",
X        XV_X, 196,
X        XV_Y, 583,
X        XV_WIDTH, 53,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Apply",
X        PANEL_NOTIFY_PROC, accept_filters,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `filters_reset' in the specified instance.
X
X */
XXv_opaque
Xcontool_filters_filters_reset_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        reset_filters();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:filters_reset",
X        XV_X, 261,
X        XV_Y, 583,
X        XV_WIDTH, 51,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Reset",
X        PANEL_NOTIFY_PROC, reset_filters,
X        NULL);
X    return obj;
X}
X
X/*
X * Initialize an instance of object `load'.
X */
Xcontool_load_objects *
Xcontool_load_objects_initialize(ip, owner)
X    contool_load_objects    *ip;
X    Xv_opaque    owner;
X{
X    if (!ip && !(ip = (contool_load_objects *) calloc(1, sizeof (contool_load_objects))))
X        return (contool_load_objects *) NULL;
X    if (!ip->load)
X        ip->load = contool_load_load_create(ip, owner);
X    if (!ip->load_controls)
X        ip->load_controls = contool_load_load_controls_create(ip, ip->load);
X    if (!ip->load_type)
X        ip->load_type = contool_load_load_type_create(ip, ip->load_controls);
X    if (!ip->load_file)
X        ip->load_file = contool_load_load_file_create(ip, ip->load_controls);
X    if (!ip->accept_load)
X        ip->accept_load = contool_load_accept_load_create(ip, ip->load_controls);
X    return ip;
X}
X
X/*
X * Create object `load' in the specified instance.
X
X */
XXv_opaque
Xcontool_load_load_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, FRAME_CMD,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_WIDTH, 444,
X        XV_HEIGHT, 146,
X        XV_LABEL, "Contool: Load Configuration",
X        XV_SHOW, FALSE,
X        FRAME_SHOW_FOOTER, FALSE,
X        FRAME_SHOW_RESIZE_CORNER, FALSE,
X        FRAME_CMD_PUSHPIN_IN, FALSE,
X        NULL);
X    xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
X    return obj;
X}
X
X/*
X * Create object `load_controls' in the specified instance.
X
X */
XXv_opaque
Xcontool_load_load_controls_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:load_controls",
X        XV_X, 0,
X        XV_Y, 0,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, WIN_EXTEND_TO_EDGE,
X        WIN_BORDER, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `load_type' in the specified instance.
X
X */
XXv_opaque
Xcontool_load_load_type_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TOGGLE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:load_type",
X        XV_X, 105,
X        XV_Y, 14,
X        XV_WIDTH, 162,
X        XV_HEIGHT, 52,
X        PANEL_VALUE_X, 149,
X        PANEL_VALUE_Y, 14,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NCOLS, 1,
X        PANEL_LABEL_STRING, "Load:",
X        PANEL_CHOICE_STRINGS,
X            "Tool properties",
X            "Filter definitions",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `load_file' in the specified instance.
X
X */
XXv_opaque
Xcontool_load_load_file_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:load_file",
X        XV_X, 14,
X        XV_Y, 72,
X        XV_WIDTH, 415,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Configuration file:",
X        PANEL_VALUE_X, 149,
X        PANEL_VALUE_Y, 72,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `accept_load' in the specified instance.
X
X */
XXv_opaque
Xcontool_load_accept_load_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        load_filters();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:accept_load",
X        XV_X, 199,
X        XV_Y, 107,
X        XV_WIDTH, 46,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Load",
X        PANEL_NOTIFY_PROC, load_filters,
X        NULL);
X    return obj;
X}
X
X/*
X * Initialize an instance of object `store'.
X */
Xcontool_store_objects *
Xcontool_store_objects_initialize(ip, owner)
X    contool_store_objects    *ip;
X    Xv_opaque    owner;
X{
X    if (!ip && !(ip = (contool_store_objects *) calloc(1, sizeof (contool_store_objects))))
X        return (contool_store_objects *) NULL;
X    if (!ip->store)
X        ip->store = contool_store_store_create(ip, owner);
X    if (!ip->store_controls)
X        ip->store_controls = contool_store_store_controls_create(ip, ip->store);
X    if (!ip->store_type)
X        ip->store_type = contool_store_store_type_create(ip, ip->store_controls);
X    if (!ip->store_file)
X        ip->store_file = contool_store_store_file_create(ip, ip->store_controls);
X    if (!ip->accept_store)
X        ip->accept_store = contool_store_accept_store_create(ip, ip->store_controls);
X    return ip;
X}
X
X/*
X * Create object `store' in the specified instance.
X
X */
XXv_opaque
Xcontool_store_store_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, FRAME_CMD,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_WIDTH, 444,
X        XV_HEIGHT, 146,
X        XV_LABEL, "Contool: Store Configuration",
X        XV_SHOW, FALSE,
X        FRAME_SHOW_FOOTER, FALSE,
X        FRAME_SHOW_RESIZE_CORNER, FALSE,
X        FRAME_CMD_PUSHPIN_IN, FALSE,
X        NULL);
X    xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
X    return obj;
X}
X
X/*
X * Create object `store_controls' in the specified instance.
X
X */
XXv_opaque
Xcontool_store_store_controls_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:store_controls",
X        XV_X, 0,
X        XV_Y, 0,
X        XV_WIDTH, WIN_EXTEND_TO_EDGE,
X        XV_HEIGHT, WIN_EXTEND_TO_EDGE,
X        WIN_BORDER, FALSE,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `store_type' in the specified instance.
X
X */
XXv_opaque
Xcontool_store_store_type_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TOGGLE,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:store_type",
X        XV_X, 102,
X        XV_Y, 14,
X        XV_WIDTH, 165,
X        XV_HEIGHT, 52,
X        PANEL_VALUE_X, 149,
X        PANEL_VALUE_Y, 14,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_CHOICE_NCOLS, 1,
X        PANEL_LABEL_STRING, "Store:",
X        PANEL_CHOICE_STRINGS,
X            "Tool properties",
X            "Filter definitions",
X            0,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `store_file' in the specified instance.
X
X */
XXv_opaque
Xcontool_store_store_file_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern Panel_setting    file_completion();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_TEXT,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:store_file",
X        XV_X, 14,
X        XV_Y, 72,
X        XV_WIDTH, 415,
X        XV_HEIGHT, 15,
X        PANEL_LABEL_STRING, "Configuration file:",
X        PANEL_VALUE_X, 149,
X        PANEL_VALUE_Y, 72,
X        PANEL_LAYOUT, PANEL_HORIZONTAL,
X        PANEL_VALUE_DISPLAY_LENGTH, 35,
X        PANEL_VALUE_STORED_LENGTH, 256,
X        PANEL_READ_ONLY, FALSE,
X        PANEL_NOTIFY_PROC, file_completion,
X        NULL);
X    return obj;
X}
X
X/*
X * Create object `accept_store' in the specified instance.
X
X */
XXv_opaque
Xcontool_store_accept_store_create(ip, owner)
X    caddr_t        ip;
X    Xv_opaque    owner;
X{
X    extern void        store_filters();
X    Xv_opaque    obj;
X
X    obj = xv_create(owner, PANEL_BUTTON,
X        XV_KEY_DATA, INSTANCE, ip,
X        XV_HELP_DATA, "contool:accept_store",
X        XV_X, 197,
X        XV_Y, 107,
X        XV_WIDTH, 49,
X        XV_HEIGHT, 20,
X        PANEL_LABEL_STRING, "Store",
X        PANEL_NOTIFY_PROC, store_filters,
X        NULL);
X    return obj;
X}
X
END_OF_FILE
if test 40450 -ne `wc -c <'contool_ui.c'`; then
    echo shar: \"'contool_ui.c'\" unpacked with wrong size!
fi
# end of 'contool_ui.c'
fi
echo shar: End of archive 6 \(of 6\).
cp /dev/null ark6isdone
MISSING=""
for I in 1 2 3 4 5 6 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 6 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0

Chuck Musciano                ARPA  : [e-mail]
Harris Corporation             Usenet: ...!uunet!x102a!trantor!chuck
PO Box 37, MS 3A/1912            AT&T  : [phone]
Melbourne, FL 32902            FAX   : [phone]

A good newspaper is never good enough,
    but a lousy newspaper is a joy forever.        -- Garrison Keillor

dan
----------------------------------------------------
O'Reilly && Associates   [e-mail] / [e-mail]
Opinions expressed reflect those of the author only.